home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Shareware Plus / Developers / CLImax 1.0 / AppleScript and CLImax / Advanced AppleScript / Handlers to try / tc / tc.rsrc / TEXT_256.txt < prev   
Encoding:
Text File  |  1996-04-16  |  288 b   |  13 lines
  1. on tc()
  2.  set t to file type of selection
  3.  set c to creator type of selection
  4.  set n to count items of selection
  5.  if n is 1 then return {t,c}
  6.  
  7.  -- else do some more processing
  8.  set r to {}
  9.  repeat with x from 1 to n
  10.   set r to r & {{item x of t, item x of c}}
  11.  end repeat
  12.  return r
  13. end tc